Option Explicit
Sub F_Sample035()
    'Microsoft DAO 3.6 Object Library ]wޥζ
    'ոF_Data.mdb
    Dim myDb  As DAO.Database
    Dim mytbl As DAO.TableDef
    Dim myFileName As String
    Dim i        As Long
    myFileName = "F_Data.mdb"			'wɮצW
    Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
    Worksheets.Add						'u@sW
    i = 1
    'wDC
    Cells(1, 1).Resize(, 2).Value = Array("NO.", "TBL_NAME")
    For Each mytbl In myDb.TableDefs
        i = i + 1
        Cells(i, 1).Resize(, 2).Value = Array(i - 1, mytbl.Name)
    Next mytbl
    myDb.Close
    Set mytbl = Nothing						'
    Set myDb = Nothing
End Sub
